home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed38.d64 / test 1 (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  160 lines
  1. 100 POKE53280,0:POKE53281,0:POKE53272,23
  2. 150 PRINT"[147][158]             [215][200][195] [197]NTERPRISES"
  3. 155 GOSUB390:GOSUB340:PRINT"[153]                                        [146]";
  4. 160 PRINT"                                        [146]";
  5. 162 PRINT"            [197][206][199][204][201][211][200][160][197][216][197][210][195][201][211][197][211]           [146]";
  6. 165 PRINT"[153]                                        [146]";:GOSUB390:GOSUB340
  7. 170 PRINT"                                        [146]";
  8. 175 PRINT"          * [211]PELLINGZZZZAPPER *         [146]";
  9. 180 PRINT"[153]                                        [146]";:GOSUB390:GOSUB340
  10. 182 PRINT"                [212]EST # 1                [146]";
  11. 184 PRINT"[153]                                        [146]";
  12. 186 PRINT"                                        [146]":GOSUB391
  13. 188 PRINT"                                      [152][212][153]"
  14. 190 GOSUB290
  15. 195 GOTO500
  16. 199 :
  17. 200 REM CORRECT
  18. 202 GOSUB300
  19. 204 PRINT"[153]               [195][207][210][210][197][195][212]!                 [146]"
  20. 206 GOSUB392:RETURN
  21. 210 REM WRONG
  22. 212 GOSUB320
  23. 214 PRINT"[150]           [206][207]!!   [212]RY AGAIN!            [146]":GOSUB392
  24. 216 PRINT"[145][145]                                        [145][145]
  25. 218 [153]"ONONON                                        ONONON":[142]
  26. 290 [141]392:[141]360
  27. 292 [153]"CONT      (null)RESS (null)(null)ATNLENVALCLOSEPEEKATN(null) TO CONTINUE       WAIT"
  28. 294 [161]R$:[139]R$[179][177][199](32)[175]R$[179][177]"T"[167]294
  29. 296 [139]R$[178]"T"[167][141]900
  30. 298 [153]"LOAD":[141]390:[142]
  31. 299 :
  32. 300 [143] <YES> SOUND
  33. 302 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  34. 304 [151]54296,15:[151]54277,42:[151]54278,250
  35. 306 [151]54276,23:[151]54273,23:[151]54272,191
  36. 308 [129]T[178]1[164]200:[130]:[151]54276,32:[129]T[178]1[164]250:[130]
  37. 310 [151]54296,0:[142]
  38. 320 [143] <NO> SOUND
  39. 322 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  40. 324 [151]54296,15:[151]54277,18:[151]54278,242
  41. 326 [151]54276,33:[151]54273,4:[151]54272,48
  42. 328 [129]T[178]1[164]300:[130]:[151]54276,32:[129]T[178]1[164]400:[130]
  43. 330 [151]54296,0:[142]
  44. 340 [143] <BLIP> SOUND
  45. 342 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  46. 344 [151]54296,7:[151]54277,42:[151]54278,250
  47. 346 [151]54276,23:[151]54273,23:[151]54272,191
  48. 348 [129]T[178]1[164]35:[130]:[151]54276,32:[129]T[178]1[164]50:[130]
  49. 350 [151]54296,0:[142]
  50. 360 [143] <DING> SOUND
  51. 362 S[178]54272:[151]54296,15:[151]S,50:[151]S[170]1,35:[151]S[170]2,0:[151]S[170]3,8:[151]S[170]5,0
  52. 364 [151]S[170]6,10[172]16[170]9:[151]S[170]4,14:[151]S[170]4,65:[129]Q[178]1[164]20:[151]S[170]4,64:[142]
  53. 370 [143] <VERY WRONG SOUND>
  54. 372 S[178]54272:[151]54296,15:[151]S,32:[151]S[170]1,3:[151]S[170]2,128:[151]S[170]3,13
  55. 374 [151]S[170]5,4[172]16[170]0:[151]S[170]6,10[172]16[170]8
  56. 376 [151]S[170]24,15:[151]S[170]4,65:[129]Q[178]1[164]500:[130]:[151]S[170]4,64:[142]
  57. 390 [129]T[178]1[164]600:[130]:[142]
  58. 391 [129]T[178]1[164]1000:[130]:[142]
  59. 392 [129]T[178]1[164]2000:[130]:[142]
  60. 393 [129]T[178]1[164]3000:[130]:[142]
  61. 394 [129]T[178]1[164]4000:[130]:[142]
  62. 395 [129]T[178]1[164]5000:[130]:[142]
  63. 399 :
  64. 400 [153]"LISTLOAD (null)PELLINGZZZAPPER (null)-1         RIGHT$TEM "N
  65. 410 [142]
  66. 420 M[178]TI[173]60
  67. 425 M[178][181](M[170].5)
  68. 430 [142]
  69. 499 :
  70. 500 [153]"LOAD  RIGHT$N THIS PROGRAM YOU WILL TEST
  71. 502 PRINT"  YOURSELF TO SEE HOW MUCH YOU
  72. 504 [153]"  LEARNED IN PRINT(null)RACTICE #1OPEN.
  73. 508 PRINT"  [217]OU MUST SELECT AND TYPE WHICH
  74. 512 [153]"  OF TWO WORDS IS SPELLED CORRECTLY.
  75. 516 PRINT"  [217]OU WILL HAVE ONLY ONE CHANCE TO
  76. 520 [153]"  SELECT FROM EACH PAIR OF WORDS.
  77. 524 PRINT"  [193] TIMER WILL MEASURE YOUR RATE OF
  78. 528 [153]"  PROGRESS AND YOU ALSO WILL BE           SCORED.
  79. 532 PRINT"  [193]T THE END OF THE TEST, THE WORDS
  80. 536 [153]"  YOU MISSED WILL BE LISTED.  (null)LEASE
  81. 540 PRINT"  RECORD THESE WORDS FOR FURTHER
  82. 544 [153]"  STUDY.
  83. 550 GOSUB290
  84. 560 PRINT"[147][158] AND AWAY WE GO.............":GOSUB300:GOSUB392
  85. 565 :
  86. 570 TI$="000000"
  87. 599 :
  88. 600 N=1
  89. 605 DIMA$(19),B$(19),C$(19),Q$(19)
  90. 610 FORG=0TO19:FORI=1TO3:K=0:GOSUB400:N=N+1
  91. 615 GOSUB420:PRINT"            [197]LAPSED TIME";M
  92. 617 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  93. 620 READA$(G),B$(G),C$(G)
  94. 630 PRINT"[159] [215]HICH OF THESE WORDS IS SPELLED         CORRECTLY?
  95. 640 [153]"       "A$(G);B$(G)
  96. 650 [153]"SYS ":[133]Z$
  97. 660 [139]Z$[178]C$(G)[167][141]200:[137]690
  98. 670 [141]370:[153]"DEF (null)HE CORRECT WORD IS "C$(G)"DEF."
  99. 675 [141]290:W[178]W[170]1
  100. 680 Q$(G)[178]"Q"
  101. 690 [130]G
  102. 700 [153]"LOAD  (null)PELLINGZZZZZAPPER (null)-1   (null)LEN(null)(null)VALCLOSEPEEK(null)ATN(null)STR$  WAIT
  103. 705 L=20-W:K=L*5:GOSUB420
  104. 710 PRINT"      [158] [217]OUR SCORE ......";K"%":GOSUB360:GOSUB391
  105. 715 PRINT"      [158] [217]OUR TIME .......";M"SECONDS":GOSUB360:GOSUB391
  106. 720 PRINT"      [153] [195]ORRECT .........";L:GOSUB300:GOSUB391
  107. 725 PRINT"      [150] [194][204][207][207][208][197][210][211] ........";W:GOSUB370
  108. 730 IFK=>90THENPRINT"               [197][216][195][197][204][204][197][206][212]![160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][146]"
  109. 735 IFK=100THENPRINT"":GOSUB790
  110. 740 GOSUB290
  111. 745 PRINT"[147][158]    [208]LEASE RECORD THESE [200][197][193][214][217] WORDS:"
  112. 750 FORG=0TO19:IFQ$(G)="Q"THENPRINTTAB(8)C$(G)
  113. 755 NEXT
  114. 790 GOSUB290
  115. 799 :
  116. 800 PRINT"[147][158] [217]OU HAVE A CHOICE:
  117. 805 [153]" (null)RESS  (null) WAIT TO REPEAT (null)PELL (null)EST 1
  118. 810 PRINT" [208]RESS  [205] [146] TO GO TO THE DISK MENU
  119. 815 [161]R$:[139]R$[179][177]"R"[175]R$[179][177]"(null)"[175]R$[179][177]"M"[175]R$[179][177]"(null)"[167]815
  120. 820 [139] R$[178]"R"[167] [140]:[137]100
  121. 825 [139] R$[178]"(null)"[167] [140]:[137]100
  122. 830 [153]"LOADSYS (null)ETURNING TO THE DISK MENU.
  123. 835 LOAD"MENU",8
  124. 840 RUN
  125. 845 END
  126. 899 :
  127. 900 PRINT"[147][159]     [212]HE WORDS USED IN THIS PROGRAM:
  128. 905 [153]"     ACCURACY      DISAPPEAR
  129. 910 PRINT"     INTERRUPT     PARALLEL
  130. 915 [153]"     ACCOMMODATE   DISAPPOINT
  131. 920 PRINT"     IRRESISTIBLE  PASTIME
  132. 925 [153]"     ACCUMULATE    DISSATISFIED
  133. 930 PRINT"     MEANNESS      PERMISSIBLE
  134. 935 [153]"     ACROSS        EMBARRASS
  135. 940 PRINT"     MILLIONAIRE   POSSESSION
  136. 945 [153]"     AGGRAVATE     ERRONEOUS
  137. 950 PRINT"     MISSPELLED    PROFESSOR"
  138. 960 GOSUB290:RETURN
  139. 1000 DATA"ACURACY /"," ACCURACY","ACCURACY"
  140. 1010 DATA"ACCOMMODATE /"," ACOMMODATE","ACCOMMODATE"
  141. 1020 DATA"ACCUMULATE /"," ACUMULATE","ACCUMULATE"
  142. 1030 DATA"ACCROSS /"," ACROSS","ACROSS"
  143. 1040 DATA"AGGRAVATE /"," AGRAVATE","AGGRAVATE"
  144. 1050 DATA"DISSAPPEAR /"," DISAPPEAR","DISAPPEAR"
  145. 1060 DATA"INTERUPT /"," INTERRUPT","INTERRUPT"
  146. 1070 DATA"PARRALLEL /"," PARALLEL","PARALLEL"
  147. 1080 DATA"DISSAPPOINT /"," DISAPPOINT","DISAPPOINT"
  148. 1090 DATA"IRRESTIBLE /"," IRESITIBLE","IRRESISTIBLE"
  149. 1100 DATA"PASSTIME /"," PASTIME","PASTIME"
  150. 1110 DATA"DISATISFIED /"," DISSATISFIED","DISSATISFIED"
  151. 1120 DATA"MEANNESS /"," MEANESS","MEANNESS"
  152. 1130 DATA"PERMISSIBLE /"," PERMMISSIBLE","PERMISSIBLE"
  153. 1140 DATA"EMBARASS /"," EMBARRASS","EMBARRASS"
  154. 1150 DATA"MILLIONAIRE /"," MILIONAIRE","MILLIONAIRE"
  155. 1160 DATA"MISPELLED /"," MISSPELLED","MISSPELLED"
  156. 1170 DATA"PROFFESSOR /"," PROFESSOR","PROFESSOR"
  157. 1180 DATA"POSESSION /"," POSSESSION","POSSESSION"
  158. 1190 DATA"ERRONEOUS /"," ERONEOUS","ERRONEOUS"
  159. 2000 REM WHC 92:09:18
  160.